home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vb_clk2 / vbclock.gbl < prev    next >
Text File  |  1995-09-06  |  5KB  |  98 lines
  1. Type POINTAPI
  2.   X As Integer
  3.   Y As Integer
  4. End Type
  5. Type RECT
  6.     Left As Integer
  7.     Top As Integer
  8.     Right As Integer
  9.     bottom As Integer
  10. End Type
  11.  
  12.  
  13. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  14. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As Any, ByVal lplFileName As String) As Integer
  15. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  16. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  17. Declare Function GetClassName Lib "User" (ByVal hWnd As Integer, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
  18.  
  19. Declare Function SetWindowPos Lib "User" (ByVal hWnd As Integer, ByVal hWndInsertAfter As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal cx As Integer, ByVal cy As Integer, ByVal wFlags As Integer) As Integer
  20. Declare Function GetFreeSystemResources Lib "User" (ByVal wType As Integer) As Integer
  21. Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags As Integer) As Long
  22. Declare Sub MessageBeep Lib "User" (ByVal wType As Integer)
  23. Declare Function GetActiveWindow Lib "User" () As Integer
  24. Declare Sub GetWindowRect Lib "User" (ByVal hWnd As Integer, MyRect As RECT)
  25. Declare Function WindowFromPoint Lib "User" (ByVal Y As Integer, ByVal X As Integer) As Integer
  26. Declare Function GetMenu Lib "User" (ByVal hWnd As Integer) As Integer
  27. Declare Function GetSubMenu Lib "User" (ByVal hMenu As Integer, ByVal nPos As Integer) As Integer
  28. Declare Function TrackPopupMenu Lib "User" (ByVal hMenu As Integer, ByVal wFlags As Integer, ByVal X As Integer, ByVal Y As Integer, ByVal nReserved As Integer, ByVal hWnd As Integer, ByVal lpReserved As Long) As Integer
  29.  
  30. Global DispItem As Integer
  31. Global Bcolour As Long
  32. Global FColour As Long
  33. Global IsFloat As Integer
  34. Global IsAlarm As Integer
  35. Global AlarmTime As Double
  36. Global AlarmMessage As String
  37. Global DispFont As String
  38. Global DispFontSize As Single
  39. Global pStep As Integer
  40. Global Scale_Pixel As Integer
  41. Global Scale_Twip As Integer
  42. Global Const NumTypes = 8
  43. Global Const MaxItems = 9
  44. Global DispInfo(1 To MaxItems)  As Integer
  45.  
  46. Global Const TRUE = -1
  47. Global Const FALSE = 0
  48.  
  49. Global Const SHIFT_MASK = 1
  50. Global Const CTRL_MASK = 2
  51. Global Const ALT_MASK = 4
  52. Global Const LEFT_BUTTON = 1
  53. Global Const RIGHT_BUTTON = 2
  54. Global Const MIDDLE_BUTTON = 4
  55.  
  56. Global Const BLACK = &H0&
  57. Global Const RED = &HFF&
  58. Global Const GREEN = &HFF00&
  59. Global Const YELLOW = &HFFFF&
  60. Global Const BLUE = &HFF0000
  61. Global Const MAGENTA = &HFF00FF
  62. Global Const CYAN = &HFFFF00
  63. Global Const WHITE = &HFFFFFF
  64.  
  65. Global Const DESKTOP = &H80000001               ' Desktop.
  66. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  67. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  68. Global Const MENU_BAR = &H80000004              ' Menu background.
  69. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  70. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  71. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  72. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  73. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  74. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  75. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  76. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  77. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  78. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  79. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  80. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  81. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  82. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  83.  
  84. Global Const DEFAULT = 0               ' 0 - Default
  85. Global Const ARROW = 1                 ' 1 - Arrow
  86. Global Const CROSSHAIR = 2             ' 2 - Cross
  87. Global Const IBEAM = 3                 ' 3 - I-Beam
  88. Global Const ICON_POINTER = 4          ' 4 - Icon
  89. Global Const SIZE_POINTER = 5          ' 5 - Size
  90. Global Const SIZE_NE_SW = 6            ' 6 - Size NE SW
  91. Global Const SIZE_N_S = 7              ' 7 - Size N S
  92. Global Const SIZE_NW_SE = 8            ' 8 - Size NW SE
  93. Global Const SIZE_W_E = 9              ' 9 - Size W E
  94. Global Const UP_ARROW = 10             ' 10 - Up Arrow
  95. Global Const HOURGLASS = 11            ' 11 - Hourglass
  96. Global Const NO_DROP = 12              ' 12 - No drop
  97.  
  98.